home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Graphics / Graphic Demos / Stair Draw / source / Stair_Globals < prev    next >
Encoding:
Text File  |  1987-01-18  |  1.5 KB  |  85 lines  |  [TEXT/PJMM]
  1. {** STAIR PROGRAM **}
  2. {Program to layout and draw stair section    }
  3. {Version 0.90     01/18/87      G. Langdon    }
  4.  
  5. {**   PROGRAM GLOBALS   **}
  6.  
  7. UNIT Stair_Globals;
  8.  
  9. INTERFACE
  10.  
  11.     CONST
  12.     {*Window items*}
  13.         ScrollSize = 4;
  14.  
  15.     {*Menus*}
  16.         appleMenu = 1;
  17.         FileMenu = 2;
  18.         EditMenu = 3;
  19.         ScaleMenu = 4;
  20.         PenMenu = 5;
  21.         lastMenu = 5;
  22.  
  23.     {*Dialog items*}
  24.         OKBtn = 1;
  25.         CancelBtn = 2;
  26.         HtLabel = 3;
  27.         FtLabel = 4;
  28.         FtTxt = 5;
  29.         InLabel = 6;
  30.         InTxt = 7;
  31.         LayOutLabel = 8;
  32.         StrtBtn = 9;
  33.         UTypeBtn = 10;
  34.         TopBtn = 11;
  35.         BtmBtn = 12;
  36.         numEdTxt = 2;
  37.         numRGroups = 2;
  38.  
  39.     {*Layout items*}
  40.         StdRiser = 7.50;
  41.         LandingDim = 48.00;
  42.         NosingDim = 1.00;
  43.  
  44.  
  45.     TYPE
  46.  
  47.         fileName = str255;
  48.  
  49.     VAR
  50.  
  51.     {*Window items*}
  52.         done : BOOLEAN;
  53.         theEvent : eventRecord;
  54.         DrawWindow, theWindow : windowPtr;
  55.         URgn : RgnHandle;
  56.         Pict : PicHandle;
  57.         PicBnds, DragBnds, SizeBnds : Rect;
  58.         hsBar, vsBar : ControlHandle;
  59.  
  60.     {*Menu items*}
  61.         theMenus : ARRAY[1..lastMenu] OF MenuHandle;
  62.         penWidth, penHeight : INTEGER;
  63.  
  64.     {*Dialog items*}
  65.         theDialog : DialogPtr;
  66.         theType, ItemHit, theItem : INTEGER;
  67.         ItemHdl : Handle;
  68.         ItemBox : Rect;
  69.         RGroup : ARRAY[1..numRGroups] OF RECORD
  70.                 min, max, default : INTEGER
  71.             END;
  72.         FirstDialog : BOOLEAN;
  73.  
  74.     {*Stair items*}
  75.         FtAns, InAns, theStairType : str255;
  76.         AdjRisers : Longint;
  77.         Feet, Inches, Ht, Risers, RiserDim, Treads, TreadDim, pixelIn : Extended;
  78.         SelectedCtl : ARRAY[1..numRGroups] OF RECORD
  79.                 value : INTEGER
  80.             END;
  81.         StairType : INTEGER;
  82.  
  83. IMPLEMENTATION
  84.  
  85. END.